﻿Public Class Form1

   
    Private Sub NhàCungCấpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NhàCungCấpToolStripMenuItem.Click
        Dim ncc As New FrmNhaCungCap
        ncc.ShowDialog()
    End Sub

    Private Sub KháchHàngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KháchHàngToolStripMenuItem.Click
        Dim kh As New FrmKhachHang
        kh.ShowDialog()
    End Sub

    Private Sub ThoátToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoátToolStripMenuItem2.Click
        Me.Close()
    End Sub

    Private Sub SảnPhẩmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SảnPhẩmToolStripMenuItem.Click
        Dim sp As New FrmSanPham
        sp.ShowDialog()
    End Sub

    Private Sub PhiếuNhậpHàngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhiếuNhậpHàngToolStripMenuItem.Click
        Dim pn As New FrmLapPhieuNhap
        pn.ShowDialog()
    End Sub

    Private Sub ChiTiếtPhiếuNhậpHàngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChiTiếtPhiếuNhậpHàngToolStripMenuItem.Click
        Dim ctpn As New FrmChiTietPhieuNhap
        ctpn.ShowDialog()
    End Sub

    Private Sub PhieuXuatHangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhieuXuatHangToolStripMenuItem.Click
        Dim px As New FrmLapPhieuXuat
        px.ShowDialog()
    End Sub

    Private Sub ChiTiếtPhiếuXuấtHàngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChiTiếtPhiếuXuấtHàngToolStripMenuItem.Click
        Dim ctpx As New FrmChiTietPhieuXuat
        ctpx.ShowDialog()
    End Sub

    Private Sub ThôngTinChươngTrìnhToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThôngTinChươngTrìnhToolStripMenuItem.Click
        Dim tt As New FrmThongTin
        tt.ShowDialog()
    End Sub
End Class
